1000 KEY
1100 VARNAME
1200 CLS
1300 VARNAME
1400 IF
1500 VARNAME
1600 IF
1700 VARNAME
1800 IF
1900 VARNAME
2000 VARNAME
2100 VARNAME
2200 VARNAME
2300 LOCATE
2400 CENTRE
2500 BOX
2600 RBOX
2700 LOCATE
2800 SET ZONE
2900 VARNAME
3000 VARNAME
3100 OPEN IN
3200 LINE INPUT
3300 VARNAME
3400 IF
3500 VARNAME
3600 VARNAME
3700 VARNAME
3800 IF
3900 GOSUB
4000 REPEAT
4100 IF
4200 LINE INPUT
4300 GOSUB
4400 IF
4500 UNTIL
4600 WHILE
4700 GOSUB
4800 CLOSE
4900 GOTO
5000 IF
5100 LPRINT
5200 VARNAME
5300 RETURN
5400 VARNAME
5500 IF
5600 VARNAME
5700 FOR
5800 VARNAME
5900 NEXT
6000 VARNAME
6100 VARNAME
6200 VARNAME
6300 LPRINT
6400 INC
6500 IF
6600 RETURN
6700 LPRINT
6800 INC
6900 LPRINT
7000 RETURN
7100 LOCATE
7200 SET PAINT
7300 PAINT
7400 LPRINT
7500 LPRINT
7600 LPRINT
7700 LPRINT
7800 LPRINT
7900 RETURN
900 REM [header] XLIST v1.00 - (c) Keith Thomasson 1989